home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 3 / inter@ivo 1996-04.iso / cybint3 / bin / maxime.dxr / 00115.ls < prev    next >
Encoding:
Text File  |  1996-03-21  |  1.0 KB  |  43 lines
  1. on exitFrame
  2.   global sprpos, Aframe
  3.   if rollOver(5) then
  4.     set Aframe to the frame
  5.     go("naveg")
  6.   end if
  7.   put sprpos
  8.   if sprpos = 1 then
  9.     set the visible of sprite 3 to 0
  10.     set the visible of sprite 4 to 1
  11.     set sprpos to 2
  12.   else
  13.     if sprpos = 2 then
  14.       set the visible of sprite 3 to 1
  15.       set the visible of sprite 4 to 0
  16.       set sprpos to 3
  17.     else
  18.       if sprpos = 3 then
  19.         set the visible of sprite 3 to 0
  20.         set the visible of sprite 4 to 1
  21.         set sprpos to 4
  22.       else
  23.         if sprpos = 4 then
  24.           set the visible of sprite 4 to 0
  25.           set the visible of sprite 2 to 1
  26.           set sprpos to 5
  27.         else
  28.           if sprpos = 5 then
  29.             set the locV of sprite 2 to the locV of sprite 2 + 45
  30.             if the locV of sprite 2 >= 480 then
  31.               puppetSprite(2, 0)
  32.               puppetSprite(3, 0)
  33.               puppetSprite(4, 0)
  34.               go(90)
  35.             end if
  36.           end if
  37.         end if
  38.       end if
  39.     end if
  40.   end if
  41.   go(the frame)
  42. end
  43.